(ns minify.core
  (:gen-class)
  (:require [minify.ui :as ui]
            [clojurefx.protocols :as fxp]
            [clojurefx.clojurefx :as fx])
  (:import (javafx.stage Stage)
           (javafx.scene Scene)
           (minify Utils)))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (fx/run-later
    (let [root  (doto (ui/create) (ui/config-ui!))
          scene (-> (Scene. root) (Utils/config))
          stage (doto (Stage.) (fxp/set-title! "Minify") (fxp/set-scene! scene))]
      (.show stage))))
